home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / demos / getmultifiles.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-01-01  |  1.1 KB  |  50 lines
  1. program asltest;
  2.  
  3. uses exec,easyasl, linklist, strings, amigautils;
  4.  
  5. {
  6.    How to get more files than one with easyasl.
  7.    Just remeber that you have to use linklist and
  8.    not an ordinary list.
  9.  
  10.    24 Jan 2000.
  11.  
  12.    nils.sjoholm@mailbox.swipnet.se
  13. }
  14.  
  15. VAR
  16.  
  17.   pdummy   : array [0..108] of char;
  18.  
  19.   path     : PChar;
  20.   dummy    : boolean;
  21.   mylist   : pList;
  22.   mynode   : pFPCNode;
  23.   temp     : Longint;
  24.  
  25. begin
  26.  
  27.   path := @pdummy;
  28.   CreateList(mylist);
  29.   StrpCopy(path,'sys:');
  30.   dummy := GetMultiAsl('test of getmulti',path,mylist,nil,nil);
  31.   If dummy then begin
  32.       writeln;
  33.       writeln('Number of files picked ',NodesInList(mylist));
  34.       writeln('And the winner are:');
  35.       PrintList(mylist);
  36.       writeln(chr(10) + 'Press Return' + chr(10));
  37.       readln;
  38.  
  39.       writeln('And now path plus file');
  40.       mynode := GetFirstNode(mylist);
  41.       FOR temp := 1 TO NodesInList(mylist) DO BEGIN
  42.          writeln(PathAndFile(path,GetNodeData(mynode)));
  43.          mynode := GetNextNode(mynode);
  44.       END;
  45.   end else writeln('You didn''t pick any files');
  46.   DestroyList(mylist);
  47. END.
  48.  
  49.  
  50.